home *** CD-ROM | disk | FTP | other *** search
Text File | 1992-12-21 | 529 b | 21 lines | [TEXT/MPS ] |
- Perl -Sx "{0}" {"Parameters"}>ToDistr || Exit 1
- ToDistr
- Delete -y ToDistr
- Exit
-
- #!/usr/bin/perl
-
- ($bin, $privlib, $helpdir) = @ARGV;
-
- print "Duplicate -y Perl $bin\n"
- if (-e "Perl" && -d $bin);
- print "Duplicate -y :lib:┼ $privlib\n"
- if (-d ":lib" && -d $privlib);
- print "Duplicate -y PerlHelp $helpdir\n"
- if (-e "PerlHelp" && -d $helpdir);
- print "Duplicate -y PerlHelp.index $helpdir\n"
- if (-e "PerlHelp.index" && -d $helpdir);
- print "Duplicate UserStartupÑPerl \{MPW\}\n"
- if (-e "UserStartupÑPerl" && -d $ENV{"MPW"});
-
-